home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Controls.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  1.1 KB  |  46 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Sunday, January 6, 1991 at 10:25 PM}
  5. {    Controls.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc. 1985-1990}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13.  
  14. {    RMS    4/3/91        Modified to exclude declarations already in the THINK Pascal built-in interfaces    }
  15.  
  16.  
  17.  
  18. unit Controls;
  19. interface
  20.     uses
  21.         Types, Quickdraw;
  22.  
  23.     const
  24.         popupMenuProc = 1008;               { 63 * 16 }
  25.         popupFixedWidth = $0001;            { popup menu CDEF variation codes }
  26.         popupUseAddResMenu = $0004;
  27.         popupUseWFont = $0008;
  28.         popupTitleBold = $00000100;         {    Popup Title characteristics }
  29.         popupTitleItalic = $00000200;
  30.         popupTitleUnderline = $00000400;
  31.         popupTitleOutline = $00000800;
  32.         popupTitleShadow = $00001000;
  33.         popupTitleCondense = $00002000;
  34.         popupTitleExtend = $00004000;
  35.         popupTitleNoStyle = $00008000;
  36.         popupTitleLeftJust = $00000000;
  37.         popupTitleCenterJust = $00000001;
  38.         popupTitleRightJust = $000000FF;
  39.  
  40.         popupMenuCDEFproc = popupMenuProc;  { synonym for compatibility }
  41.  
  42.  
  43. implementation
  44. end.
  45.  
  46.